CAAMERCURYPlanet <-
function(Year){
.Call("MERCURYPlanet", Year)
}
